procedure PASCALMAIN; external name 'PASCALMAIN';

procedure fpc_start(argc : dword;argv,envp : pointer); cdecl; public name '_start';
begin
   IsLibrary:=false;
	pchar($b8000)^ := '!';
	while true do;
   //PASCALMAIN;
end;
